home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 5: The Fifth Dimension / 17 Bit - The Fifth Dimension (1995)(17 Bit Software)[!].iso / files / 3414a.dms / 3414a.adf / 3.0bUpdate / Macros.LHA / SendtoTurboText.rexx < prev    next >
OS/2 REXX Batch file  |  1994-10-12  |  3KB  |  100 lines
  1. /* $VER: SendtoTurboText.rexx 1.0 (13.10.94)
  2.    Copyright 1994 Soft-Logik Publishing Corporation
  3.    May not be distributed without Soft-Logik Publishing Corporation's express written permission */
  4.  
  5. OPTIONS RESULTS
  6. TRACE OFF
  7.  
  8. /* Make sure rexx support is opened */
  9. IF ~SHOW('L','rexxsupport.library') THEN
  10.    CALL ADDLIB('rexxsupport.library',0,-30)
  11.  
  12. ADDRESS 'PAGESTREAM'
  13.  
  14.  
  15. /* Select all the text in the current article */
  16. 'selecttext all'
  17.  
  18. /* Export the article to a temp file */
  19. 'lockinterface true'
  20. 'exporttext file t:HotLinkedArticle filter ascii textcode PageStream status force'
  21. /* Eventually will just make article external, but not this version */
  22. /* 'editarticle external file t:HotLinkedArticle' */
  23. 'refresh wait'
  24.  
  25. /* set the default TurboText path */
  26. ttxpath='TurboText:TTX'
  27. preffile='PageStream3:SendtoTurboText.prefs'
  28.  
  29. /* If TurboText doesn't exist in the default path, check SendtoTurboText.prefs */
  30. if ~exists(ttxpath) then do
  31.     if open(.ifile, preffile, 'R') then do
  32.         ttxpath=readln(.ifile)
  33.         call close(.ifile)
  34.         askuser='no'
  35.         end
  36.     else do
  37.         askuser='yes'
  38.     end
  39.     /* If TurboText doesn't exist in the set pref path, ask the user where it is */
  40.     if ~exists(ttxpath) | askuser='yes' then do
  41.         getfile TITLE "'Please locate TurboText'" load path "'TurboText:'" file 'TTX' posbutton 'Ok' negbutton 'Cancel'
  42.         if RC=10 then signal cancel
  43.         ttxpath=result
  44.         if open(.ifile, preffile, 'W') then do
  45.             call writeln(.ifile, ttxpath)
  46.             call close(.ifile)
  47.         end
  48.     end
  49. end
  50.  
  51.  
  52. /* Run TurboText */
  53. ADDRESS COMMAND
  54. 'run >nil:' ttxpath' t:HotLinkedArticle'
  55.  
  56. /* Wait until the ARexx port shows up */
  57. do 20
  58.     if ~show(P, 'TURBOTEXT') then call delay(50)
  59. end
  60.  
  61. /* If the ARexx port didn't show up, alert the user and exit */
  62. if ~show(P, 'TURBOTEXT') then do
  63.     ADDRESS 'PAGESTREAM'
  64.     allocarexxrequester '"Send to Editor Error!"' 368 59
  65.     reqhandle=result
  66.     addarexxgadget reqhandle EXIT 286 42 70 label "_Exit"
  67.         Exithandle=result
  68.     addarexxgadget reqhandle TEXT 8 10 352 border none string "'TurboText could not be started.'"
  69.     doarexxrequester reqhandle
  70.     freearexxrequester reqhandle
  71.     'refresh continue'
  72.     'lockinterface false'
  73.     EXIT
  74. end
  75.  
  76. /* Wait for the user to finish in TurboText */
  77. do forever
  78.     if show(P, 'TURBOTEXT') then call delay(50)
  79.         else signal update
  80. end
  81.  
  82. /* Update PageStream and exit */
  83. UPDATE:
  84. ADDRESS 'PAGESTREAM'
  85. 'screentofront'
  86. /* Eventually will just make article external, but not this version */
  87. /* 'editarticle path t:HotLinkedArticle' */
  88. /* 'editarticle internal' */
  89.  
  90. 'inserttext file t:HotLinkedArticle filter ascii textcode PageStream'
  91. signal cancel
  92.  
  93. CANCEL:
  94. ADDRESS 'PAGESTREAM'
  95. 'refresh continue'
  96. 'lockinterface false'
  97. ADDRESS COMMAND
  98. 'delete t:HotLinkedArticle'
  99. EXIT
  100.